val get_dims : Sdlvideo.surface -> int * int
val sdl_init : unit -> unit
val wait_key : unit -> unit
val marge : int
val taille_point : int
type point = { x : float; y : float; }
type triangle = { p1 : point; p2 : point; p3 : point; }
val max_x : float ref
val max_y : float ref
val imax_x : int ref
val imax_y : int ref
val triangles_initiaux : float -> float -> triangle list
val normer : point -> point
val ccw : point -> point -> point -> bool
val in_circle : triangle -> point -> bool
val inf_point : point -> point -> bool
val tri_points : point -> point -> int
val inf_aretes : point * point -> point * point -> int
val aretes : triangle -> (point * point) list
val aretes_liste : triangle list -> (point * point) list
val gomme : 'a list -> 'a list
val frontier : triangle list -> (point * point) list
val triangle_interessant :
  triangle list -> point -> triangle list * triangle list
val calcul_triangle : (point * point) list -> point -> triangle list
val add_point : triangle list -> point -> triangle list
val pretty_print : float -> float -> triangle list -> triangle list
val elt : int * 'a list -> 'a
val parse_hauteur :
  (float * float * float) list ->
  'a list ->
  ('a * int * int * int) list -> (float * float * float) list * 'a list
val height_of_color : 'a * 'b * 'c -> ('a * 'b * 'c) list * int list -> int
val ff : int * int * int -> float * float * float
val doublons : 'a -> 'a list -> bool
val tri : 'a list -> 'a list
val cherche_ds_liste : int -> 'a -> 'a list -> int
val liste_trois_to_un : triangle list -> point list
val delaunay_obj :
  triangle list -> Sdlvideo.surface -> (int * int * int * int) list -> unit
val delaunay : point list -> float -> float -> triangle list
val makegoodliste : (int * int) list -> point list
val main :
  string -> (int * int) list -> (int * int * int * int) list -> unit -> unit
